home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc2 / datebkiv.lha / DateBookIV / Rexx / Pano.dbk < prev    next >
Text File  |  1993-09-18  |  789b  |  38 lines
  1. /* File : Pano.dbk
  2.  *
  3.  * $Project:          DateBookIII
  4.  *
  5.  * $Module Id:         
  6.  * $Author:         Robert Hardy
  7.  * $Date Started:     Fri Sep 18 1992
  8.  * $Version:         1
  9.  * $Revision         0
  10.  *
  11.  * Simple example of an event rexx macro.  This one is triggered when 
  12.  * a PaNorAmA meeting is imminent.
  13.  *
  14.  * $History: 
  15.  *        {ver} {initial} {date} {description of change} {SAR|SCR reference #}
  16.  *
  17.  *        1.0        RWH        Fri Sep 18 1992        Initial rev
  18.  *
  19.  */
  20.  
  21.  
  22. parse arg event_time event_date cur_date
  23.  
  24. event_date = strip(event_date)
  25. cur_date = strip(cur_date)
  26.  
  27. if event_date = cur_date then
  28. do
  29.  
  30.     x = open('t', 't:tsay', 'W')
  31.     x = writeln('t', 'wait until '||event_time)
  32.     x = writeln('t', 'sys:utilities/say Oh boy.  Oh boy.  Another PaNorAmA meeting coming up')
  33.     s = close('t')
  34.  
  35.     address command 'run >nil: execute t:tsay'
  36. end
  37.  
  38.